home *** CD-ROM | disk | FTP | other *** search
/ MacPeople 1998 #2 / MACPEOPLE-1998-NO2.ISO / アップル関連 / ARA PS アップデート / モデム用 / Supra 336⁄V.34 rev.1 / Supra 336_V.34 rev.1 next >
Text File  |  1996-07-02  |  4KB  |  268 lines
  1. !                Diamond Multimedia Communications Division
  2. !
  3. !                       APPLE REMOTE ACCESS 1.0/2.0
  4. !                  COMMUNICATION CONTROL LANGUAGE SCRIPT
  5. !                         For Supra Brand Modems
  6. ! 2/95 JHE  V.34 support
  7. ! 5/95 CNC  V.34 annex A (33.6kbps) support
  8. !
  9. @ORIGINATE
  10. @ANSWER
  11. !
  12. @LABEL 1
  13. SETTRIES 0
  14. HSRESET 0 1 0 0 0 0
  15. DTRSET
  16. !Wait for modem to powerup
  17. PAUSE 30
  18.  
  19. @Label 3
  20. SERRESET 57600, 0, 8, 1
  21. ! SETUP DEFAULT DIALING STRING FOR THE MODEM.
  22. matchstr 1 7 "OK¥13¥10"
  23. write "AT &F1B1S0=0M0E0¥¥N0N1%C0S46=136&C1&K3&D2W2S95=12S7=120¥13"
  24. matchread 30
  25. inctries
  26. iftries 2 5
  27. SBREAK
  28. Jump 3
  29.  
  30. @Label 5
  31. HSRESET 0 0 0 0 0 0
  32. SERRESET 2400, 0, 8, 1
  33. Write "AT¥13"
  34. ! SETUP DEFAULT DIALING STRING FOR THE MODEM.
  35. MatchClr
  36. matchstr 1 13 "OK¥13¥10"
  37. write "AT &FS0=0M0E0&C1S7=120&P1¥13"
  38. matchread 30
  39. inctries
  40. iftries 2 98
  41. SBREAK
  42. jump 5
  43.  
  44. @LABEL 7
  45. ! CHECK ERROR CORRECTION LINK REQUEST
  46. ! MNP10 = 2, LAP-M/MNP = 1
  47. ifstr 4 9 "2"
  48. ifstr 4 11 "1"
  49. jump 13
  50.  
  51. @LABEL 9
  52. ! Configure MNP10 operation
  53. ! Used with ARA 2.0 only
  54. write "AT¥¥N3)M1-K1¥13"
  55. Jump 13
  56.  
  57. @Label 11
  58. ! Configure LAP-M/MNP operation
  59. ! Used with ARA 2.0 only
  60. write "AT¥¥N3¥13"
  61.  
  62. @LABEL 13
  63. ! SETUP ACCORDING TO SPEAKER OPTION
  64. ifstr 2 15 "0"
  65. matchclr
  66. matchstr 1 15 "OK¥13¥10"
  67. write "ATM1¥13"
  68. matchread 30
  69. jump 98
  70.  
  71. @LABEL 15
  72. ! TURN ON AUTO ANSWER
  73. iforiginate 17
  74. write "ATS0=1¥13"
  75. Jump 40
  76.  
  77. @LABEL 17
  78. ! 1 = blind, 2 =manual
  79. ifstr 6 21 "1"
  80. ifstr 6 19 "2"
  81. Jump 23
  82.  
  83. @LABEL 19
  84. note "Initiating Manual Connect..." 3
  85. write "ATD¥13"
  86. jump 40
  87.  
  88. @LABEL 21
  89. note "Dialing without dialtone detection." 3
  90. matchclr
  91. matchstr 1 23 "OK¥13¥10"
  92. write "ATX1¥13"
  93. matchread 30
  94. jump 98
  95.  
  96. @LABEL 23
  97. USERHOOK 1
  98. note "Dialing ^1." 3
  99. write "ATD^3^1¥13"
  100.  
  101. @LABEL 40
  102. !Wait for modem connection speed result code
  103. matchstr 1 44 "CONNECT 2400¥13¥10"
  104. matchstr 2 46 "CONNECT 9600¥13¥10"
  105. matchstr 3 48 "CONNECT 14400¥13¥10"
  106. matchstr 4 50 "CONNECT 16800¥13¥10"
  107. matchstr 5 52 "CONNECT 19200¥13¥10"
  108. matchstr 6 54 "CONNECT 21600¥13¥10"
  109. matchstr 7 56 "CONNECT 24000¥13¥10"
  110. matchstr 8 58 "CONNECT 26400¥13¥10"
  111. matchstr 9 60 "CONNECT 28800¥13¥10"
  112. matchstr 10 62 "CONNECT 31200¥13¥10"
  113. matchstr 11 64 "CONNECT 33600¥13¥10"
  114. matchstr 12 42 "RING¥13¥10"
  115. matchstr 13 90 "NO CARRIER¥13¥10"
  116. matchstr 14 92 "NO DIALTONE¥13¥10"
  117. matchstr 15 94 "BUSY¥13¥10"
  118. matchstr 16 96 "NO ANSWER¥13¥10"
  119. matchread 1200
  120. ifANSWER 40
  121. jump 96
  122.  
  123. @LABEL 42
  124. note "Answering Phone..." 2
  125. USERHOOK 1
  126. jump 40
  127.  
  128. @LABEL 44
  129. note "Communicating at 2400 bps." 2
  130. CommunicatingAt 2400
  131. Jump 70
  132.  
  133. @LABEL 46
  134. note "Communicating at 9600 bps." 2
  135. CommunicatingAt 9600
  136. Jump 70
  137.  
  138. @LABEL 48
  139. note "Communicating at 14400 bps." 2
  140. CommunicatingAt 14400
  141. jump 70
  142.  
  143. @LABEL 50
  144. note "Communicating at 16800 bps." 2
  145. CommunicatingAt 16800
  146. jump 70
  147.  
  148. @LABEL 52
  149. note "Communicating at 19200 bps." 2
  150. CommunicatingAt 19200
  151. jump 70
  152.  
  153. @LABEL 54
  154. note "Communicating at 21600 bps." 2
  155. CommunicatingAt 21600
  156. jump 70
  157.  
  158. @LABEL 56
  159. note "Communicating at 24000 bps." 2
  160. CommunicatingAt 24000
  161. jump 70
  162.  
  163. @LABEL 58
  164. note "Communicating at 26400 bps." 2
  165. CommunicatingAt 26400
  166. jump 70
  167.  
  168. @LABEL 60
  169. note "Communicating at 28800 bps." 2
  170. CommunicatingAt 28800
  171. Jump 70
  172.  
  173. @LABEL 62
  174. note "Communicating at 31200 bps." 2
  175. CommunicatingAt 31200
  176. Jump 70
  177.  
  178. @LABEL 64
  179. note "Communicating at 33600 bps." 2
  180. CommunicatingAt 33600
  181. Jump 70
  182.  
  183. @LABEL 70
  184. matchclr
  185. matchstr 1 78 "PROTOCOL: NONE¥13¥10"
  186. matchstr 2 72 "PROTOCOL: LAP-M¥13¥10"
  187. matchstr 3 74 "PROTOCOL: ALT¥13¥10"
  188. matchstr 4 76 "PROTOCOL: ALT - CELLULAR¥13¥10"
  189. matchread 50
  190. Jump 78
  191.  
  192. @LABEL 72
  193. note "LAP-M reliable link established." 3
  194. userhook 2
  195. jump 78
  196.  
  197. @LABEL 74
  198. note "MNP reliable link established." 3
  199. userhook 2
  200. jump 78
  201.  
  202. @LABEL 76
  203. note "MNP10 reliable link established." 3
  204. userhook 4
  205. jump 78
  206.  
  207. @LABEL 78
  208. exit 0
  209.  
  210.  
  211. @HANGUP
  212. @LABEL 80
  213. settries 0
  214. HSReset 0 0 0 0 0 0 
  215. DTRClear
  216.  
  217. @LABEL 82
  218. Flush
  219. SBREAK
  220. pause 5
  221. matchclr
  222. matchstr 1 84 "NO CARRIER¥13¥10"
  223. matchstr 2 84 "OK¥13¥10"
  224. matchstr 3 84 "ERROR¥13¥10"
  225. matchstr 4 84 "0¥13¥10"
  226. write "ATH¥13"
  227. matchread 30
  228. inctries
  229. iftries 3 98
  230. write "+++"
  231. jump 82
  232.  
  233. @LABEL 84
  234. matchclr
  235. matchstr 1 86 "OK¥13¥10"
  236. write "AT&F¥13"
  237. matchread 30
  238. jump 98
  239.  
  240. @LABEL 86
  241. userhook 0
  242. exit 0
  243.  
  244. ! General script errors
  245. @LABEL 90
  246. ! NO CARRIER
  247. exit -6021
  248.  
  249. @LABEL 92
  250. ! NO DIALTONE
  251. exit -6020
  252.  
  253. @LABEL 94
  254. ! BUSY SIGNAL DETECTED
  255. exit -6022
  256.  
  257. @LABEL 96
  258. ! NO ANSWER
  259. exit -6023
  260.  
  261. @LABEL 98
  262. ! MODEM NOT RESPONDING
  263. exit -6019
  264.  
  265. @LABEL 100
  266. ! VARSTRING ERROR
  267. exit -6027
  268.